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Documentation for the Floating Point Extensions is at the end of 
this package. Its pages are numbered for integration into the 
floating point documentation in the valFORTH 1.1 package. 
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Many different approaches to creating "computer graphics" are possible, and, 
indeed, many have been implemented. One of the most fruitful approaches, parti¬ 
cularly for two-dimensional graphics work, is a system usually called "turtle 
The valGraphics package is a turtle-like system patterned after the 
ATARI PILOT turtle graphics rendition, though with many significant extensions. 
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* Graphic mode 7+ ("7 and a half") is fully supported and is activated 
like any other graphic mode by using the GR. command and standard 
options. This mode is the four-color high-resolution graphic mode 
found in most of the better video games available for the Atari 
computers. (Antic mode 14.) 

* Display windowing and clipping is full supported. Options include 
"machine specific 11 coordinates for speed and "scaled" coordinates 

* TURNTWD (turn toward) and 2LNX (two line intersection) commands are 
available allowing simplified perspective drawing. 


Although the Atari 400/800 computers have extensive graphic capabilities 
the need to keep the ROM operating system under 1GK apparently forced Atari 
to omit the highest resolution color graphic mode (graphic mode 7+) and allowed 
only inefficient draw and fill routines to be implemented. Since this severely 
limited the usefulness of the computer for plotting, both of these problems have 
been corrected. 


Many of the better video games for the Atari 400/800 computers use 
a color graphic mode not supported in BASIC. By redefining the GR. 
command, it was possible to implement this previously unavailable mode. 

This new graphic mode, which in this package is called graphic mode 12, 
is similar to graphic mode seven. The difference is that a pixel ( a 
single dot) in graphic 12 is half as tall as the same pixel in graphic 
mode 7. This mode is activated in the same manner as other graphic 
modes; 


12 GR. 

All options (1 e., split/full screen etc.) available for other 
modes will work with this new mode. In the split screen graphics 
12 mode, there are 160 horizontal by 160 vertical pixel locations. 

In the full screen mode, there are 160 horizontal by 192 vertical 
locations. Note that to use this mode the valGraphics package must 
be loaded and the new draw routines must be used (the operating system 
routines fail in this mode). 


Draw and Fill Routines 


Because the line and fill routines in this package represent 
significant enhancement to the original operating system routines, 
an explanation of the why's and how's of this implementation is 
offered in the following. 








STROLLING THROUGH valGRAPHICS 


To get started, insert your valGraphics disk and load in the armadillo 
package and all optional graphics packages ("+'s") (including the demos). 

It would even be a good idea to SAVE a copy of this system in case you 
crash later on. (Insert a formatted disk and type SAVE.) The load 
addresses may be found on screen 170 of the disk. Note that you do not 
need, and probably won't want, to first load the graphics package provided 
on your valFORTH 1.1 disk. Note also that as these packages load, some 
load comments may be reported as "xxxx Is not unique" and can be ignored. 
This message simply states that a word has just been defined with the 
same name as an already existing word. 

When plotting in BASIC, location (0,0) is in the upper lefthand 
corner of the video display. All horizontal and vertical positions to the 
right and down are referenced with positive offsets from the (0,0) point. 
Armadillo graphics uses a somewhat different method to specify a location. 

In armadillo graphics, the point (0,0) is located in the center of 
the display. Horizontal locations to right are referenced with positive 
offsets from this point, while locations to the left are referenced using 
negative offsets, likewise, locations higher on the screen from the origin 
are referenced with positive vertical offsets while those lower on the 
screen are referenced using negative ones. Since this setup follows the 
standard cartesian coordinate system, function plotting is greatly simpli- 


0 ° 

(360°) 






+ X 



Let's take a look at the basic armadillo graphic commands. Type: 




ON ASPECT 












So far, we have used the TURN, TURNTO, DRAW, DRAWTO, PHIL, and PHILTO 
commands. These are the basic "drawing" words, used constantly, when work¬ 
ing with armadillo graphics. You will encounter times when you need to 
move the armadillo without drawing a line between its starting point and 
its destination point. There are four similar commands which allow this. 

The GO, GOTO, GO., and GOTO. All reposition the armadillo without drawing 
a line. The GO and GOTO commands function like DRAW and DRAWTO respectively; 
however, the armadillo is placed at the position where the last dot of the 
plotted line would have been and no line is drawn. GO. and GOTO, function 
like GO and GOTO; however, a single point is plotted at the destination 

180 TURNTO 

10 GO 10 PHIL 10 GO 10 PHIL 

After entering the above, type FRAME to frame this picture. If all went 

well, your display should look like: 

























This demonstration first shows right filling, then left filling, 
and then simultaneous right/left filling. Note that although there was 
nothing on the screen to halt the right/left fills, they still stopped 
upon hitting the edge of the display. In fact, by using windows (which 
will be described later), fill boundaries can be set anywhere on the 
screen and fills will never occur outside of those boundaries. This is 
■invaluable when trying to restrict drawing and filling to a select 
portion of the display. 


Another unique feature of the fill routines is that they allow 
filling over any pseudo-background color (default is 0). The PHBAK 
command is used to specify this background color. Like the PEN and PH PEN 
commands, PHBAK accepts a color specification on the stack. WIPE uses 
the color specified by the last PHBAK command, and the fill routines 
recognize this as background to be filled over. Try this: 

3 PHBAK WIPE 

0 PEN 1 PHPEN 
50 50 PHILTO 

For the time being, we will leave the background color blue and 
continue on. Next we are going to define a few words which will draw 
simple shapes. Bear in mind that when defining shape words, TURNTO, 

DRAWTO, and PHILTO should be avoided as they are absolute in nature. 
Typically, figures should be drawn relative to the armadillo's direction. 
Likewise, the armadillo should generally be returned to its original 
position and heading once the "canned" shape has been drawn. (For the 
curious, the words DX1 and DY1 return the x-y coordinates of the armadillo's 
current location. The word DAZM returns the directional angle of the 
armadillo.) We shall now define a word which will draw a square on the 


90 TURN 

WIPE CENTERO 2 PEN 


( #steps/side 


There are several points to be mentioned here. First, because 
combinations of DUP with DRAW, GO, and GO. occur often, the words DUPDRAW, 
DUPGO, tnd DUPGO, have been defined to conserve memory. 

Also notice that the squares drawn really have sides of equal length 
(in BASIC, the vertical legs would be much shorter). The armadillo package 
performs "aspect ratio" calculations which ensures that "equal" lines are 
drawn the same length regardless of their orientation to a fixed axis. 

These routines were enabled at the beginning of this stroll with the 
"ON ASPECT" command. Because these calculations do take time (approxi¬ 
mately 3 milliseconds per draw), they can be turned off using the command: 

OFF ASPECT 
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With DRUNT still on, try the following example: 

30 QCIRCLE 

The QCIRCLE command draws a quick-and-dirty circle about the 
armadillo, with the value on top of stack taken as the approximate 
radius. Notice how the 40-step square turned out. Because the draw- 
until mode is on, each side is drawn until another line is encountered. 
Note, however, that even though the line was not drawn to the destina¬ 
tion point, the armadillo was still positioned there. Because interest¬ 
ing results can be obtained by using this feature, the RELOC command 
must be used explicitly to reposition the armadillo to the last plotted 
point of the line. The following two definitions might come in handy: 

( #steps — ) 

DRAW DFLG 

ON DRUNT 


(DFLG is a flag set true only if the last DRAW or DRAWTO crossed 

These two commands will automatically reposition the armadillo at 
the end of the drawn line after each draw. One last point about draw- 
occasional ly it is desirable to know when a draw-until line was 
stopped by the draw-until function, rather than by reaching an end point 
or window boundary. The 7DRSTP word will return a one (1) if the last 

and verifying this. ?DRSTP is in the DILLO vocabulary. (See the glossary.) 

Up until now, when we filled areas or drew-until, both the fills 
and draws would stop when encountering a non-pseudo background color (set 
by PHBAK or DRBAK). Often, it is desirable to refill an area (i.e., 
fill until background is hit) or draw-until hitting the pseudo background 
color. There are two switches which can be turned ON or OFF as desired. 

The PHUNOT (fill until not) switch, when ON, fills until the color set 
by the last. PHBAK command is not hit. This is the defaulat condition 
(i.e., fill until background is not hit). When OFF, the fill routines 
continue to fill until the pseudo background color is hit. Likewise, the 
DRUNOT (draw until not) switch, when ON, draws until the color set by the 
last PHBAK or DRBAK (whichever came last) command is hit. Let's take a 

(Reset draw/fill switches) 

CENIERO 50 50 PHILTO 

(fill while not background) 

60 PHIL 
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Now with PRUNT off: 


50 50 PHILTO 

The last fill command should have filled clear to the edge of the display, 
ignoring everything in its path. Using this with PHXOR, interesting results 

can be obtained: 

CENTERO 50 FAN 

50 50 PHILTO 

Now, try: 

50 50 PHILTO 

By using windows (described later), the fill and draw commands can be 
restricted to selected areas of the display. In combination with windows, 
PHXOR can produce astounding visual effects (especially in GTIA modes). 

The last remaining switch to be described is the PHCRNR switch. 

PHCRNR allows rudimentary corner checking for vertical filIs. Because 
its use is specialized, PHCRNR is normally turned off. The following 

50 0 DRAWTQ 0 0 DRAWTO 50 PHIL 

Notice the artifact at the top corner. Now, turn PHCRNR on and perform 
the same example (less the DINIT command). This time, no artifact should 
have appeared. It is important to remember that these corner tests will 
i with many diagonal fills, and completely fail when refilling an 
area. Also note that when first point plot is disabled, even vertical 
filling f;n • 

Al l of the basic armadillo commands have been explained and are 
summarized in the glossary and on the valGraphic Handy Reference Card. 
Although many commands have been discussed, there are many more left 
to talk about. These include the perspective drawing commands for 


(NOTE: In all of the above examples, WIPE has been used to 
clear the display. In many cases, the memory FILL 
command can be used instead: 88 @ n 0 FILL where 

n is the size of display memory in bytes. This method 
is much faster but cannot be used with windows.) 































DINIT 


to get things back to normal. Note that DINIT returns to the base window and 
so WIPE wipes the entire screen. The window in which we were just working is 
forgotten. (We’ll discuss ways to remember it a little later.) DOT shows that 
the armadillo is back at the center. Now type 


ON ASPECT 

-50 -10 30 -10 WINDOW 
FRAME 


and you see that this "same" 40 by 40 window as before now looks much more 
nearly square. This illustrates that ASPECT works on windows as well as lines. 
With ASPECT on, what you give up in order to get better shapes is some informa¬ 
tion about what coordinates the top and bottom of the screen actually are, but 
for "hands on" use this is not much of a loss. Let’s make two more of this 




Notice that this window is larger than the base window. Now type 




Type CIS once os twice to clear the screen. Then type 




Interesting. Now a 40 QUBE used to be much bigger; but because we typed RELWND 
instead of WINDOW, objects are drawn relative to the new window, as if it were 


3 PHBAK 



10 50 -10 -60 RELWND 


FRAME 
40 QUBE 
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You'll notice that the line doesn't hit 0,0 exactly. This is because the 
armadillo's direction is only represented to the nearest degree. Still, this 
is good enough for most purposes. 


Finally, let's draw the a rectangular solid in two-point perspective. 

(The procedure in this example is not necessarily the best one, but it 
illustrates several capabilities. You might want to have the debugging 
package loaded from the valFORTH 1.1 disk, and have the stack turned on. 

That way you can follow the action on the stack also.) First we set up a 
horizon and two vanishing points: 

WIPE 

-200 60 GOTO 90 TURNTO 500 DRAW 

-100 60 NAMEPT VP1 (name the point on stack) 

100 60 NAMEPT VP2 

Then we "construct" the solid 

CENTER VP1 TURNTWD 40 DRAW 

THISPT PT1 (name the present point) 

CENTER VP2 TURNTWD 30 DRAW 
THISPT PT2 
CENTERO 20 DRAW 
THISPT PT3 

VP1 TURNTWD MAKLN (leave a "line" on the stack) 

PT1 GOTO 0 TURNTO MAKLN (leave a second line) 

(find their intersection) 

NAMEPT PT4 (and name the point) 

PT4 DRAWTO PT3 DRAWTO 

VP2 TURNTWD MAKLN (do it again) 

PT2 GOTO 0 TURNTO MAKLN (second line) 

2LNX (intersection) 

2DUP GOTO (make a copy then go there) 

PT3 DRAWTO PT2 GOTO 2DUP DRAWTO (out in 2 more lines) 
yPl TURNTWD MAKLN PT4 GOTO VP2 TURNTWD MAKLN 2LNX 
DRAWTO DRAWTO (finished) 

0 GR. VI 1ST (see the new words: point names.) 

40 GR. (Still there.) 

In addition to MAKLN there is also THISLN which name the line the armadillo 
lies on, and NAMELN which will name a line on the stack. Given two points on 
the stack, 2PT-LN will change the four values into three, suitable for use 
with NAMELN. Practice, and some study of the glossary, will help. The user 
should realize that points and lines can't be named very easily within a 
program, but only while the program is loading. Within a program, use the 
stack or array structures for saving points and lines. 

This stroll is not meant to exhaust the possibilities of this package, but 
merely to indicate them. A clever programmer, for instance, would have little 
trouble in figuring out how to interface this package to a joystick to make a 
very versatile sketchpad. 

Hmmmmm? 
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Turtle graphics, and so also valGRAPHICS, uses a coordinate system different 
from that used by the Atari OS. In valGRAPHICS, the center of the graphics 

<" values are positive to the right and negative to 
the left, while "y" values are positive toward the top of the display and 
negative toward the bottom. The maximum values of x and y may vary between 
liiolay modes, depending c venous use; options that are selected. In this 

Strolling hrough valGRAPHICS" sections of this 
package, and also the words MC0QR and SCOOR in the "Windows" section below. 

In the glossary that follows, all mention of coordinates will apply to valGRAPHICS 

ind PHI110 commands support a number of options 
ity and power whet used fully. These commands and 

options are discussed s a group if the end of the glossary and summarized with 
lart which also appears on th handy reference card. The functions discussed 
an necessarily complex; however, the command DINIT ("d-init") is provided so 

'standard-option" status during 

e ;rimentation and pra ti e, dun g actual program execution. 

erm "pixel" stand. p o "picture element" and refers to the smallest 

tual colors in the color registers may be changed by various means, including 

On GTIA-equipped machines in 10 GR. there are nine colors available, 

are also used; Since these 

set by using negative "playfield" numbers when using SE. . For instance, -3 

•so]or" set by the various color 

command below, e.g. PEN, ’HPElf, PH.BAK, etc., is interpreted explicitly as 

’color" set by the various color 

.sianas below is in;> c fly as a hue between 0 and 15. The lum 

will be used in this package, 
a vocabulary that branches from FORTH, 

All of ie system worn; n f s sage have been put in the DILLO vocabulary 

words are also in DILLO, though advanced users may want to get at them. To 
antes the DILLO vocabular. simply type Di .10 and these words will now be 

•in: back into the FORTH vocabulary., DILLO may have to be used within a 
ccs.it definition. Se the source coca for numerous examples of this. Words 

clfied in the glossary below. (The word 







































No lines are drawn or points plotted, 

omponents of subsequent graphics commands 


For example * to find the color of the pixel under 





























wing discussion is largely technical. Even so, it may be skimmed 


or vertically in the graphics CS should move the graphics cursor 

;ommand "MCOOR" which stands for "machine 










■ ■ the wi ndow which 






SET-SCALE 


Used'to redefine the horizontal and vertical numerical boundaries of 
windows. After executing SET-SCALE, the 

command will set windows to range horizontally between +-horiz and vertically 
between +-vert. Note that the point 0,0 will remain the center point of 

use of SET-SCALE. SET-SCALE is in the DILLO vocabulary. 

MC00R 

Sets the horizontal and vertical numerical boundaries of windows to 
correspond to the number of pixels in each direction in the base window. 

user, with one exception: After having done a RELWND and returning to the base 
window by BASWND, an increase in speed may be had by executing MC00R. f the 

point, but worth noting. MC00R is in the DILLO vocabulary. 

SCOOR 

Sets the horizontal and vertical numerical boundaries of windows to 
correspond to the default values set by GR. or by values set by SE 
"SCOOR" stands for "scaled coord im $.' : is not generally accessed erectly 

by the user. SCOOR is in the DILLO vocabulary. 


:WCTR 

Centers the armadillo in the current window. 
:WCTR0 



pally for subse;unt geometric-construction-type operations, like finding the 










DRAW 








irmadi'llo to the location of the last pixel drawn by 





















nc> proceed in Pi-ill 

































































































































































Note that ■h e p- ts its arguments as numbers of pixels, and that "left” 




































■:ca1ed~ck ; Qree arc-amenta < scaled radian arganents and back again. 




























( delta-x, delta-.'/ ). 
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1 - including tr t g functions 


Conversion words DG->RD and RD->D6 have been provided 
















If fp3 would overflow or 
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